home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 2 / BBS in a box - Trilogy II.iso / Files / Hyper / Q-R / ResGenie™ 1.0 / ResGenie™ / ResGenie™.rsrc / TEXT_161_turnONBrowser.txt < prev    next >
Encoding:
Text File  |  1993-08-02  |  656 b   |  15 lines
  1. global colorauthoringpath
  2. global holdStackName
  3. global TheStack
  4. put  the short name of stack TheStack into holdStackName
  5. put "Browse: " before char 1 of holdstackname
  6. do put  FullResList("T=ALL", "O=TNIS", "W=" & TheStack) into resdata
  7. start using stack TheStack
  8. if word 1 of resdata is "Error" then
  9. answer resdata
  10. do restext("TEXT", "BrowseResources", colorauthoringpath)
  11. end if
  12. do sort resdata
  13. if the number of lines of resdata is 1 then put return & "       " after line 1 of resdata
  14. Listoid holdStackName,resdata,"DontAllowReorg", "one","(‚Ä¢) Browse Another :","black,white", "Chicago", "12", "0"
  15. do restext("TEXT", "stackuselist", colorauthoringpath)